home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / mcsecure.zip / _ENCRYPT.FRM < prev    next >
Text File  |  1996-05-16  |  6KB  |  165 lines
  1. VERSION 4.00
  2. Begin VB.Form frmEncryption 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Encryption"
  5.    ClientHeight    =   4605
  6.    ClientLeft      =   1440
  7.    ClientTop       =   2250
  8.    ClientWidth     =   6675
  9.    Height          =   4950
  10.    Left            =   1410
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   4605
  15.    ScaleWidth      =   6675
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1935
  18.    Width           =   6735
  19.    Begin VB.TextBox Text2 
  20.       Height          =   285
  21.       Left            =   1890
  22.       TabIndex        =   5
  23.       Top             =   3870
  24.       Width           =   4695
  25.    End
  26.    Begin VB.TextBox Text1 
  27.       Height          =   285
  28.       Left            =   1890
  29.       TabIndex        =   3
  30.       Top             =   3510
  31.       Width           =   4695
  32.    End
  33.    Begin VB.ListBox List1 
  34.       Height          =   2955
  35.       Left            =   90
  36.       TabIndex        =   1
  37.       Top             =   360
  38.       Width           =   6495
  39.    End
  40.    Begin VB.Label Label3 
  41.       Caption         =   "Encryption is"
  42.       Height          =   195
  43.       Left            =   90
  44.       TabIndex        =   6
  45.       Top             =   4260
  46.       Width           =   1725
  47.    End
  48.    Begin VB.Label Label4 
  49.       Appearance      =   0  'Flat
  50.       BackColor       =   &H80000005&
  51.       BorderStyle     =   1  'Fixed Single
  52.       ForeColor       =   &H80000008&
  53.       Height          =   285
  54.       Left            =   1890
  55.       TabIndex        =   7
  56.       Top             =   4230
  57.       Width           =   4695
  58.    End
  59.    Begin VB.Label Label5 
  60.       Caption         =   "Enter a &key"
  61.       Height          =   195
  62.       Left            =   90
  63.       TabIndex        =   4
  64.       Top             =   3900
  65.       Width           =   1725
  66.    End
  67.    Begin VB.Label Label2 
  68.       Caption         =   "Enter a &string "
  69.       Height          =   195
  70.       Left            =   90
  71.       TabIndex        =   2
  72.       Top             =   3540
  73.       Width           =   1725
  74.    End
  75.    Begin VB.Line Line1 
  76.       BorderColor     =   &H00FFFFFF&
  77.       BorderStyle     =   6  'Inside Solid
  78.       BorderWidth     =   2
  79.       X1              =   0
  80.       X2              =   6660
  81.       Y1              =   3420
  82.       Y2              =   3420
  83.    End
  84.    Begin VB.Label Label1 
  85.       Caption         =   "Encryption Samples"
  86.       Height          =   195
  87.       Left            =   90
  88.       TabIndex        =   0
  89.       Top             =   90
  90.       Width           =   6495
  91.    End
  92. End
  93. Attribute VB_Name = "frmEncryption"
  94. Attribute VB_Creatable = False
  95. Attribute VB_Exposed = False
  96. Option Explicit
  97.  
  98. Private Sub Form_Load()
  99.  
  100.    Dim i          As Integer
  101.    Dim Tmp1       As String
  102.    Dim Tmp2       As String
  103.    Dim TmpE       As String
  104.    Dim TmpD       As String
  105.    Dim Data       As String
  106.    Dim Value      As String
  107.    
  108.    TmpE = "Encryption of '"
  109.    Tmp1 = "' with '"
  110.    Tmp2 = "' is '"
  111.    TmpD = "Decryption of '~' with '~' is '~'"
  112.    
  113.    Value = "mc security"
  114.    
  115.    List1.Clear
  116.    
  117.    Data = "ABCDEFGHIJKLMNOP"
  118.    List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  119.    Data = "ABCDEFGHIJKLMNO"
  120.    List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  121.    Data = "ABCDEFGHIJKLMN"
  122.    List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  123.    Data = "ABCDEFGHIJKLM"
  124.    List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  125.    Data = "ABCDEFGHIJKL"
  126.    List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  127.    Data = "ABCDEFGHIJK"
  128.    List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  129.    Data = "ABCDEFGHIJ"
  130.    List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  131.  
  132.    List1.AddItem ""
  133.  
  134.    Data = cEncrypt("ABCDEFGHIJKLMNOP", Value, ENCRYPT_LEVEL_4)
  135.    List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  136.    Data = cEncrypt("ABCDEFGHIJKLMNO", Value, ENCRYPT_LEVEL_4)
  137.    List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  138.    Data = cEncrypt("ABCDEFGHIJKLMN", Value, ENCRYPT_LEVEL_4)
  139.    List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  140.    Data = cEncrypt("ABCDEFGHIJKLM", Value, ENCRYPT_LEVEL_4)
  141.    List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  142.    Data = cEncrypt("ABCDEFGHIJKL", Value, ENCRYPT_LEVEL_4)
  143.    List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  144.    Data = cEncrypt("ABCDEFGHIJK", Value, ENCRYPT_LEVEL_4)
  145.    List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  146.    Data = cEncrypt("ABCDEFGHIJ", Value, ENCRYPT_LEVEL_4)
  147.    List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
  148.    
  149.    Text1.Text = "mc security"
  150.    Text2.Text = "1234567"
  151.    
  152. End Sub
  153.  
  154.  
  155. Private Sub Text1_Change()
  156.    Label4.Caption = cEncrypt(Text1.Text, Text2.Text, ENCRYPT_LEVEL_4)
  157. End Sub
  158.  
  159.  
  160. Private Sub Text2_Change()
  161.    Label4.Caption = cEncrypt(Text1.Text, Text2.Text, ENCRYPT_LEVEL_4)
  162. End Sub
  163.  
  164.  
  165.